home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / srch_rs.exe / TESTCASE.PAS < prev   
Pascal/Delphi Source File  |  1992-01-17  |  1KB  |  35 lines
  1.  
  2. program SearchTestCase;
  3.  
  4. uses
  5.   Search;
  6.  
  7. const
  8.   A1 : array[1..15] of char = 'abcdefghijklmno';
  9.  
  10. BEGIN
  11.   writeln('The position of cde in ', A1, ' should be 3');
  12.   writeln('The position of cde in ', A1, ' is ',
  13.                                                StrPos(A1, sizeof(A1), 'cde'));
  14.   writeln;
  15.   writeln('The position of lkj in ', A1, ' should be 0');
  16.   writeln('The position of lkj in ', A1, ' is ',
  17.                                                StrPos(A1, sizeof(A1), 'lkj'));
  18.   writeln;
  19.   writeln('The position of ijk in abcdefghij should be 0');
  20.   writeln('The position of ijk in abcdefghij is ', StrPos(A1, 10, 'ijk'));
  21.   writeln;
  22.   writeln('The position of abc in ', A1, ' should be 1');
  23.   writeln('The position of abc in ', A1, ' is ',
  24.                                                StrPos(A1, sizeof(A1), 'abc'));
  25.   writeln;
  26.   writeln('The position of abc in bcdefghij should be 0');
  27.   writeln('The position of abc in bcdefghij is ',
  28.                                         StrPos(A1[2], sizeof(A1) - 1, 'abc'));
  29.   writeln;
  30.   writeln('The position of mno in ', A1, ' should be 13');
  31.   writeln('The position of mno in ', A1, ' is ',
  32.                                                StrPos(A1, sizeof(A1), 'mno'));
  33. END.
  34.  
  35.